var n:integer;
begin
for n:= 100 to 999 do begin
if n mod 3 = 0 then
if n mod 10 = 2 then writeln (n);
end;
if n mod 10 = 4 then writeln (n);
end;
if n mod 10 = 8 then writeln (n);
end;
end;
end;
end.
паскаль
1. составить программу определение типа введенных с клавиатуры букв:гласная, согласная разделитель.
это как делать?через оператор case?
2.среди четырехзначных чисел выберите те, которые делятся на 3 и оканчиваются на 2,4,8.
составила программу так:
var n:integer;
begin
for n:= 100 to 999 do begi
for n mod 3 do begin
if n mod 10 = 2 then writeln (n);
if n mod 10 = 4 then writeln (n);
if n mod 10 = 8 then writeln (n);
end;end;end.
ошибку выдает.подскажите что не так.
3.найти сумму нечетных чисел от 1 до n.
воообще забыла как это делать(((
это как делать?через оператор case?
2.среди четырехзначных чисел выберите те, которые делятся на 3 и оканчиваются на 2,4,8.
составила программу так:
var n:integer;
begin
for n:= 100 to 999 do begi
for n mod 3 do begin
if n mod 10 = 2 then writeln (n);
if n mod 10 = 4 then writeln (n);
if n mod 10 = 8 then writeln (n);
end;end;end.
ошибку выдает.подскажите что не так.
3.найти сумму нечетных чисел от 1 до n.
воообще забыла как это делать(((
Цитата: nastyanan
1. составить программу определение типа введенных с клавиатуры букв:гласная, согласная разделитель.
это как делать?через оператор case?
это как делать?через оператор case?
скорее всего да
Цитата: nastyanan
2.среди четырехзначных чисел выберите те, которые делятся на 3 и оканчиваются на 2,4,8.
составила программу так:
var n:integer;
begin
for n:= 100 to 999 do begi
for n mod 3 do begin
if n mod 10 = 2 then writeln (n);
if n mod 10 = 4 then writeln (n);
if n mod 10 = 8 then writeln (n);
end;end;end.
ошибку выдает.подскажите что не так.
Код:
Цитата: nastyanan
3.найти сумму нечетных чисел от 1 до n.
воообще забыла как это делать(((
Код:
var summa: integer;
summa:=0;
for n:= 100 to 999 do begin
if n mod 2<>0 then
summa :=summa + n;
end;
end;
summa:=0;
for n:= 100 to 999 do begin
if n mod 2<>0 then
summa :=summa + n;
end;
end;
Я думаю как-то так должно быть.:)