var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
2.2
а) 2 б) 4 в) 0 г) нельзя делить на 0 д) 2 e) -2 ж) 2 з) 6 и) 0 к) 2 л) нельзя делить на 0 м) -2 н) -2 о) 2 п) 2
2.3
Можно получить числа 0, 1, 2, 3, 4
2.4
а) 40, 41, 42, 43, 44
б) 7
в) 43
г) 6, 12, 18, 24
д) 9
Помогите пожалуйста разобраться в данной ситуации
1.
var a: real;
x,y: integer;
begin
readln(x,a,y);
writeln('1 kg konfet stoit ', a/x:1:2);
writeln(y,' kg konfet stoyat ', a/x*y:1:2);
readln;
end.
2.
var a,s,p: integer;
begin
readln(a);
s:=a mod 10 + a div 10;
p:=(a mod 10)*(a div 10);
writeln(s);
writeln(p);
readln;
end.
3.
var a,b: integer;
begin
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln(b);
readln;
end.
Это если без циклов.