Задание 1
INPUT "n=", n
s = 0
FOR i = 1 TO n
s = s + i ^ 2
NEXT i
PRINT 4 * s
Задание 2
10 минут - это 1/6 часа и суммировать дроби, в знаменателе которых число 6, означает накапливать погрешности представления нецелых чисел в ЭВМ. Поэтому расчеты лучше делать в минутах, а результат потом перевести в часы.
Получаем сумму S=60М+(60М+10)+(60М+20)+...+[60М+10*(N-1)]
INPUT "M,N=", m, n
PRINT 5 * n * (12 * m + n - 1) / 60
Вот такие получаются короткие программы, если сначала думать, а потом писать.
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
1)
var
a:array [1..4] of char; i:integer;
begin
for i:=1 to 4 do
begin
read(a[i]);
end;
for i:=4 downto 1 do
begin
write(a[i]);
end;
<span>end.</span>