Напишите программу с паскаля: дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. составьте программу для подсчета числа слагаемых сумма которых равна 324
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало sum := 0; i := 1; s := 5; //первое слогаемое = 5 while (sum < 324) do //пока сумма меньше 324 begin sum := sum + s; //к сумме прибавляем слагаемое s := s + 4; //увеличиваем слогаемое i := i + 1; //увеличиваем кол-во слогаемых end; writeln ('Слогаемых: '); // выводим кол-во слогаемых write (i); end. //конец
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString.ToUpper; // к верхнему регистру var (kO,kE):=(0,0); // счетчики for var i:=1 to s.Length do case s[i] of 'О':ko+=1; 'Е':kE+=1 end; if kO>kE then Writeln('Буква "О" встречается чаще') else if kO<kE then Writeln('Буква "Е" встречается чаще') else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз') end.
Пример Если бы Ольга захотела, она бы училась лучше Елены Буква "Е" встречается чаще
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
while (sum < 324) do //пока сумма меньше 324
begin
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
end;
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец