Учитель задал ученику следующую задачу:
Напиши программу с использованием цикла while , которая будет по вводимому с клавиатуры целому числу n, подсчитывать сумму всех целых чисел от 2 до n с шагом 3.
Ученик спешил и написал программу с ошибками. Исправь все ошибки в программе (используй программу Pascal).
var ; i,S:real:
read(n)
i:=1
S:=0;
while i<n do begin
i:=i+3;
S:=S+S;
writeln(‘S= ’, i);
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.