Question

СОСТАВЬТЕ ПОЖАЛУЙСТА ПРОГРАММУ В ПАСКАЛЕ ПО ИНФОРМАТИКЕ ЗА 8 КЛАСС.​

Answer 1

var a: real; //цена за ручку

     b: integer; // количество ручек

     c: real; // стоимость покупки

begin

 writeln('Введите цену за одну ручку: ');

 readln(a);

 writeln('Введите количество купленных ручек: ');

 readln(b);

 с := a * b;

 writeln('Стоимость покупки ',c);

end.

Answer 2

var n,i,k,a:integer;
begin
writeln('введите количество чисел');
readln(n);
a:=0;
for i:=1 to n do begin
writeln('введите ',i:1,'-е число');
readln(a);
if a mod 2=0 then k:=k+1;
end;
writeln('кол-во четных чисел ',k);
readln;
end.