program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
<span>#include <iostream>
using namespace std;
int main()
{
cout << "Hello world!";
return 0;
<span>}</span></span>
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши