Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.
Числовые типы — типы данных, выражающие число. Притом как целое, так и дробное.
Но НЕ строку, содержащую название или обозначение числа.
Следовательно, подходят только 1; 5; 6.
Остались ненужные нам типы:
4 — логический тип (булевый)
2, 3, 7 — строковый тип (текст)
Ответ: 1; 5; 6
Монитор- графическая функция
мышь- устройство ввода
наушники- аудио устройство
процессор- устройство записи
принтер- внешнее мультимедийное устройство
Uses crt;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
<span>end.</span>