Вопрос школьника по предмету Информатика
1) Дано число X. Вывести на экран квадрат данного числа. 2) Вы пошли в магазин, у вас имеется X руб. в магазине вы купили тетрадь, ручку и карандаш. Сколько денег у вас осталось? Напишите пожалуйста. На языке Паскаль.
Ответ учителя по предмету Информатика
№1
program q177816090_1;
var
a, i: integer;
begin
Write(‘A = ‘);
ReadLn(a);
for i := 1 to a do
Write(i, ‘ ‘);
ReadLn;
end.
№2
program q177816090_2;
var
n, i: integer;
begin
Write(‘N = ‘);
ReadLn(n);
for i := 1 to n do
Write(Sqr(i), ‘ ‘);
ReadLn;
end.
№3
program q177816090_3;
var
n, k, i: integer;
begin
Write(‘N = ‘);
ReadLn(n);
Write(‘K = ‘);
ReadLn(k);
for i := 1 to n do
Write(k, ‘ ‘);
ReadLn;
end.
Похожие вопросы от пользователей
1) Чему равно среднее арифметическое этих отметок?
2) сколько пятёрок надо получить, что бы среднее арифметическое было равно 4?
3) Успеет ли он исправить четвертную оценку, если до конца четверти осталось 3 урока?
Зарание огромное спасибо))))
Даю 30 баллов