Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
решение задач в Turbo Pascal
1. Составит программу для нахождения суммы четырех чисел(Структура программы, типы данных, исполняемые операторы);
2. Запишите программу в которой значение переменной вычисляется по формуле: A+B, если А – нечетное и A*B, если А – четное(Структурные операторы. Условный оператор);
3. Составить программу, определяющую к какой группе принадлежит введенный символ (английские буквы, русские буквы, цифры, спец. символы).(Оператор варианта);
4. Найти все двузначные числа, в которых есть цифра N или само число делится на N.(Цикл с параметром.)
5. Найти сумму цифр числа(Циклы с условием. Цикл с предусловием.)
6. Найти сумму цифр числа (Циклы с условием. Цикл с постусловием)


GiRlIeN
1 | Автор: Masha | 2012-05-06, 12:34   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-06, 13:11   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: