Я не знаю я ещё такого не проходил
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
program se;
uses crt;
var
a,b,n:integer;
begin
writeln('Введите число А: ');
read(a);
writeln('Введите число В: ');
read(b);
writeln('Введите число N: ');
read(n);
if (a > n) and (b > n) then writeln('Больше')else
if (a<n) and (b<n) then writeln('Меньше')else
writeln('В промежутке между А и В');
end.
Блок схему сейчас не могу нарисовать, да и она простейшая.
K:=0;\\
for(i=0;i<100;i++){
if (a[i]>17){
k++;
}
}
write('k=',k);
Ответ:
1)точно такое количество букв?
2)планшет
3)процессор
4)ОЗУ
5)шина