Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Можливо це тобі чимось до Объяснение:
https://vseosvita.ua/library/matematicni-funkcii-v-excel-59667.html
var
x,y,z: longint;
begin
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
end.
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
Популярные вопросы