1. Даны числа от 5 до 16. Необходимо вывести на экран (в столбик) удвоенное значение каждого числа.
Пример вывода ответа: 5*2 = 10
6*2 = 12 и т.д.
2) Напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров.
(Информатика. 8 класс. Паскаль)
Ответы на вопрос
Ответил WARLORD005
0
Код:
1)
program project1;
var
i:Integer;
begin
for i:=5 to 16 do
begin
Write(i, ' * 2 = ', i*2);
Writeln;
end;
Readln;
end.
2)Выводит столбики:
program project1;
var i:integer;
begin
for i:=1 to 15 do
begin
Write(i, 'm = ', i*100, 'cm');
Writeln;
end;
Readln;
end.
Переводит значение введённого количества метров в сантиметры:
program project1;
var
i:=real;
begin
Readln(i);
Writeln(i, 'm = ', i*100, 'cm');
end.
1)
program project1;
var
i:Integer;
begin
for i:=5 to 16 do
begin
Write(i, ' * 2 = ', i*2);
Writeln;
end;
Readln;
end.
2)Выводит столбики:
program project1;
var i:integer;
begin
for i:=1 to 15 do
begin
Write(i, 'm = ', i*100, 'cm');
Writeln;
end;
Readln;
end.
Переводит значение введённого количества метров в сантиметры:
program project1;
var
i:=real;
begin
Readln(i);
Writeln(i, 'm = ', i*100, 'cm');
end.
Ответил WARLORD005
0
да не за что)
Ответил Лизочка2012
0
а после цифры 2 две разные проги из одного задания идут? о.о
Ответил WARLORD005
0
ну, первая формирует результат как таблицу целых чисел, а вторая - переводит введённое пользователем число в сантиметры.
Ответил WARLORD005
0
просто вопрос задания №2 представлен в некорректной форме.
Ответил Лизочка2012
0
ммм, ясно) я списывала задание с карточки, которую нам раздали в школе
Новые вопросы
Литература,
2 года назад
Українська мова,
2 года назад
Обществознание,
9 лет назад
Математика,
9 лет назад