РЕБЯТ !!!!!! ОЧЕНЬ СРОЧНО!!!! ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ ПАСКАЛЕ ПО ТЕМЕ ЦИКЛЫ!!! УМОЛЯЮ!!!! ВЫХОДИТ 3 ЗА ЧЕТВЕРТЬ!!!!!Дано натуральное n .Верно ли, что сумма его цифр больше 10.
2. Дано натуральное n. Определить, сколько раз в нем встречается цифра, равная последней.
3. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.
4. Дано натуральное число. Верно ли, что это число четырехзначное?
5. Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки.
2. Дано натуральное n. Определить, сколько раз в нем встречается цифра, равная последней.
3. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.
4. Дано натуральное число. Верно ли, что это число четырехзначное?
5. Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки.
Answers & Comments
var
n,i,k,sum,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.
2.
var
n,i,k,p,h,g:integer;
begin
readln(n);
g:=n;
while n<>0 do begin
g:= g div 10;
k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
h += 1;
n:=n div 10;
end;
writeln(h);
end.
3.
const
n=10;
var
a:array[1..n]of integer;
i,sum:integer;
begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln(sum);
end.
4.
var
n:integer;
begin
readln(n);
while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.
5.
var
a:array[1..10]of integer;
i:byte;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do begin
if a[i] = 2 then
writeln('да есть');
break;
end;
end.