Uses crt;
var N:integer;
begin
WriteLn('Введите N');
Readln(N);
IF Not Odd(N) then N:=N*3
else Writeln('Число нечетное');
WriteLn(N);
Readln;
<span>End.</span>
program z1;
var a,m,n:integer;
begin
writeln ('введите трехзначное число ');readln(a);
writeln ('введите число m ');readln(m);
if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны');
if ((a mod 10)=3)or(((a div 10)mod 10)=3)or((a div 10)=3) then n:=n+1;
writeln('количество чисел содержащих число 3',n);end.
//Pascal ABC.NET v3.1 сборка 1172
Var
y,x:real;
i:integer;
begin
readln(x);
for i:=1 to 30 do
y:=y+cos(x*i);
writeln(y);
end.
Пример ввода:
1
Пример вывода:
-1.32716415333901
Сначала наливаем 5 литров в 5-литровую кастрюлю. Оттуда 3 литра переливаем в 3-литровую. В итоге в 3-литровой 3 литра, в 5-литровой 2
(5-3). Далее выливаем из 3-литровой все в раковину, а из 5-литровой 2 литра которые в ней остались переливаем в 3-литровую. В итоге в 3-литровой 2 литра, 5-литровая пустая. Наполняем 5-литровую полностью (5 литров), и переливаем 1 литр в 3-литровую кастрюлю, тем самым наполняя ее полностью. В итоге в 5-литровой остается 4 литра воды, что нам и нужно.
"Мозг" компьютера это процессор
