Задача 1.
var a, k, l, m: Integer;
begin
s:= 0;
writeln ('Введите число');
readln(a);
if (a>=10) and (a<=999) then
k:=a div 100;
l:= k div 10;
m:= a mod 10;
s:= k+m+l;
writeln ('Сумма цифр в числе равна ', s);
end.
Задача 2.
var i, a, s: Integer;
begin
s:=0;
for i:= 1 to 3 do
begin
writeln ('Введите число №', i);
<span>readln(a);
</span>if (a>5) and (a mod 5 = 0) then
inc(s);
end;
writeln('Количество четных чисел, которые делятся на 5 - ', s);
end.
Задача 3
var a, b, c, d, max, med, min: Integer;
begin
writeln ('Введите число');
<span>readln(a);
</span>b:= a div 100;
c:= b div 10;
d:= a mod 10;
if (b<c) and (b<d) then
min:= b;
if (c<b) and (c<d) then
min:= c;
if (d<c) and (d<b) then
min:= d;
if (b>c) and (b>d) then
max:= b;
if (c>b) and (c>d) then
max:= c;
if (d>c) and (d>b) then
<span>max:= d;
</span>
if (b>c) and (b<d) or (b<c) and (b>d) then
med:= b;
if (c>b) and (c<d) or <span>(c<b) and (c>d) </span>then
med:= c;
if (d>c) and (d<b) or <span>(d<c) and (d>b) </span>then
med:= d;
writeln(min, med, max);
end.
Логические данные- это одно из двух значений( истина или ложь).
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Для определения, является ли число положительным достаточно сравнить его с нолём. Число больше ноля - положительное, меньше ноля - отрицательное. Сам по себе ноль не является ни положительным, ни отрицательным числом, но т.к. на ход решения это не влияет, этой деталью можно пренебречь. Алгоритм:
1. Начало
2. Ввести числа а и b
3. Если число a > 0 то запомнить a = a * 10
иначе запомнить a = a * a
4. Если число b > 0 то запомнить b = b * 10
иначе запомнить b = b * b
5. Вывести числа a и b
6. Конец