1. Составит программу для нахождения суммы четырех чисел(Структура программы, типы данных, исполняемые операторы);
2. Запишите программу в которой значение переменной вычисляется по формуле: A+B, если А – нечетное и A*B, если А – четное(Структурные операторы. Условный оператор);
3. Составить программу, определяющую к какой группе принадлежит введенный символ (английские буквы, русские буквы, цифры, спец. символы).(Оператор варианта);
4. Найти все двузначные числа, в которых есть цифра N или само число делится на N.(Цикл с параметром.)
5. Найти сумму цифр числа(Циклы с условием. Цикл с предусловием.)
6. Найти сумму цифр числа (Циклы с условием. Цикл с постусловием)
GiRlIeN
|
|
|
|
1.
var
i,a,s:byte;
begin
s:=0;
for i:=1 to 4 do begin
read(a);
s:=s+a;end;
writeln(s);
end.
2.
var
a,b:integer;
begin
read(a,b);
if a mod 2=1 then writeln(a+b) else writeln(a*b);
end.
3. Ты русские буквы не введёшь)
4. , 5. , 6. Ранее были написаны на форуме - поищи и найдёшь код)
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
