іе13. Дано число. Якщо це число парне, то/2 якщо ні, то * 2
Program as; Блок-схема
Var a: integer;
Begin clrscr;
Writeln ('Введи число');
Readln (a);
If a mod 2 = 0 then writeln (a/2)
else writeln (a * 2);
Readln;
End.
В
(Вводимо значення 5)
Відповідь: 10
Заданіе14.Дани 4 дійсних числа. Знайти суму тих чисел, які більше 5
Program as; Блок-схема
Uses crt;
Var a, b, c, d, k, z, x, v: integer;
Begin clrscr;
Writeln ('Введи 4 числа');
Readln (a, b, c, d);
If a> 5 then k: = a;
If b> 5 then z: = b;
If c> 5 then x: = c;
If d> 5 then v: = d;
Writeln ('Загальна сума = ', k + z + x + v);
End.
В
(Вводимо значення 6,6,6,6)
Відповідь: 24
Заданіе15.Дани 3 числа a, b, c. Знайти максимальне
Program as; Блок-схема
Uses crt;
Var a, b, c: integer;
Max, max1: integer;
Begin clrscr;
Writeln ('Введи 3 числа');
Readln (a, b, c);
Max: = b
Max: = a
If a> b then max: = a else max: = b;
If max> c then max1: = max else max1: = c;
Writeln ('Максимально =', max1);
Readln;
Max1: = c
Max1: = max
End. p> (Вводимо значення 5,6,7)
Відповідь: 7
В
Циклічна програма
Завдання 1.Напечатать "стовпчиком": всі цілі числа від 20 до 35
Program as; Блок-схема
Uses crt;
Var a: integer;
A: = 20
Begin clrscr;
For a: = 20 to 35 do writeln (a);
Readln;
end.
В В
Завдання 2.Напечатать "стовпчиком": квадрати всіх цілих чисел від 10 до b (значення b вводиться з клавіатури, причому b> 10)
Program as; Блок-схема
Uses crt;
Var a, j: integer;
A: = 10
Begin clrscr;
Writeln ('Введи число ');
Readln (j);
For a: = 10 to j do writeln (sqrt (a): 5:2);
Readln;
end.
В
В
В В В
A +1
В В br/>
Завдання 3.Найті суму квадратів всіх цілих чисел від 10 до 50
В
Program as;
Uses crt;
A: = 10
Var a, s: real;
Begin clrscr;
For a: = 10 to 50 do s: = sqr (a) + s;
Writeln (s),
S: = sqr (a) + s
end. В
Завдання 4.Одна штука деякого товару коштує 20 тенге. Надрукувати таблицю вартості 2,3 ... 20 штук цього товару
Блок-схема
Program as;
A: = 2
B: = 20
Uses crt;
Var a, b: integer;
Begin clrscr;
B: = 20;
For a: = 2 to 20 do writeln (a * b);
Readln;
end.
В
Завдання 5. Знайти добуток всіх цілих чисел від 1 до А (значення А вводиться з клавіатури; 1 <= A <= 20. br/>
program as; Блок-схема.
uses crt;
