Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.
инженер-проектировщик их чертит
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так
Program da;
var a,b:integer;
begin
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
if (a>2) and (b<=3) then
writeln('Правда');
else
write('Ложь')
end.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double x,y,R = 0;</span>
<span> cout << "Введите координаты точки и её радиус:\n";</span>
<span> cin >> x >> y >> R;</span>
<span> if (x*x+y*y <= R*R)</span><span> cout << "Точка попадает в круг\n";</span>
<span> else</span><span> cout << "Точка не попадает в круг\n";</span>
<span>}</span>