Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program bapehbe;
var
l, b, s : integer;
o : real;
begin
writeln (' skolko litrov varenya v tazy? ');
readln (l);
writeln (' kakaya emkost banok? ');
readln (b);
s: = l div b;
o: = l mod b;
writeln (' polnih banok_', s);
writeln (' litrov ostaloc_', o: 2: 2);
readln;
end.
const
n=10;
a: array[1..n] of integer;
i,x,k,j,s: integer;
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
end;
в ms excel по умолчанию числа выравниваются по правому краю, текст по левому
но при ручном форматировании можно выравнивать как угодно
бег-бог-лог-лаг-шаг
бант-кант-карт-кара-кора-коса
шар-бар-бам-бум-кум-куб
муха-мура-фура-фора-кора-корн-коан-клан-клон-слон
миг-маг-мак-бак-бек-век
Популярные вопросы