ДАМ 50 БАЛЛОВ ЗА ОТВЕТ 1.Вася пошёл в магазин,купил N ручек,по X рублей. Найти стоимость...

Question

ДАМ 50 БАЛЛОВ ЗА ОТВЕТ 1.Вася пошёл в магазин,купил N ручек,по X рублей. Найти стоимость покупки. 2.Для двух целых чисел надо определить являются ли они четными или нет. 3.Вывести в столбик 5 раз слово информатика. ПРОШУ ВАС РЕШИТЕ СРОЧНО

Answer 1

Var i,f:integer;
a,b,c:real;
begin
begin
writeln('Введите количество ручек и цену за 1 ручку');
readln(a,b);
c:=a*b;
writeln('Цена за покупку: ',c);
end;
begin
for i:=1 to 5 do
writeln('Информатика');
end;
begin
writeln('Введите число: ');
readln(f);
if (f mod 2=0 ) then writeln('Число четное') else writeln('Число нечетное');
end;end.