Проверочный тест «Программирование на языке Паскаль»
Вариант 2
2. Определите тип чисел: 1.8, 1.0, 41
4. Определите значение переменной b после выполнения алгоритма
a:=3;
b:=2+a;
a:=b*2*a;
b:=2*a-b;
5. Определите результат выполнения операции 15 mod 3
6. Определите, что будет напечатано в результате выполнения следующего алгоритма
var k,m:integer;
dat: array[1..10] og integer;
begin
dat[1]:=45; dat[2]:=55; dat[3]:=40; dat[4]:=15; dat[5]:=20; dat[6]:=80;
dat[7]:=35; dat[8]:=70; dat[9]:=10; dat[10]:=45;
m:=dat[1];
for k:=2 to 10 do begin
if dat[k] begin
m:=m+dat[k]; ;
end;
end;
write (m);
end.
7. Сколько существует заполнения массива? Перечислите их.
8. Напишите, используя алгоритмический язык или ЯП Pascal, алгоритм проверки
четности числа.
9. Составьте программу, которая в одномерном массиве размерностью 15 (элементы
массива случайные числа из промежутка от 0 до 9) находит количество элементов
равных 3. Оформите вывод элементов на экран в строчку, количество искомых
элементов на следующей строке хоть с чем нибудь
238
483
Ответы на вопрос:
1. var a, b, s: real; begin readln(a, b); s: =s*b; writeln(s); end. 2. var a, b, c, d, s: real; begin readln(a, b, c, d); s: =a+b+c+d; writeln(s); end. 3. var a, b, c, mult: real; begin readlb(a, b, c); mult: =a*b*c; writeln(mult); end. 4. var a, h, s: real; begin readlb(a, h); s: =a*h; writeln(s); end. 5. var a, b, o: real; begin readln(a, b); o: =a/b; writeln(o); end. 6. const pi=3.14; var r, l: real; begin readln(r); l: =2*pi*r; writeln(l); end. 7. const pi=3.14; var r, s: real; begin readln(r); s: =pi*sqr(r); writeln(s); end. 8. var a, s: real; begin readln(a); s: =sqr(a); writeln(s); end. 9. var a, h, s: real; begin readln(a, h); s: =a*h; writeln(s); end. 10. хз что это.
Популярно: Информатика
-
5класс7512.04.2020 15:48
-
SuperMan8730.08.2020 09:19
-
Egor19060630.12.2021 13:34
-
ifj2ifvjw26.05.2021 00:20
-
Прив2678923.04.2021 01:40
-
Jdudn13.08.2022 13:03
-
Aliy25123.09.2021 17:32
-
aaalino4ka22.06.2021 13:15
-
shopsms98214.11.2021 18:14
-
Madik111111130.01.2022 11:18