Var a,b:integer;
x:real;
begin
readln(a,b);
x:=a/b;
writeln(x);
<span>end.</span>
Вот решение. Думаю, все понятно
Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
Ввода-клавиатура,мышь, тачпад,граф. планшет, Джойстик,сканер,цифровой фотоаппарат,видеопроектор, вебкамера,микрофон.
остальное вывода это принтер,графопостроитель,аккуст.колонки,наушники,динамик встроенный,
Зашёл с стаканом воды на урок , С едой около клавиатуры , Бег по классу , Помыл руки тянешься к компьюеру с сырыми руками , сидеть слишком близко к монитору