Var a,b,c,d,f:integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("Число четное") else нечетное. Задаешь команду на кол-во
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Краткое решение <em>(без оформления)</em>
<span>Пример 1. Квадраты чисел от 2-х до 10-и.
</span>for x:=2 to 10 do WriteLn(x*x);
<span>Пример 2. Латинский алфавит.
</span>for ch:='A' to 'Z' do Writeln(ch);
<span>Пример 3. Использование цикла с downto.
</span>for i:=10 downto 1 do WriteLn(i);
<span>Пример 4. Использование составного оператора.
</span><span>for x:=1 to 10 do begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;
</span>
Проверь соединение с жестким диском , порядок загрузки в биосе.
Видео в ютуб Эдуард Мецкер Паскаль с нуля ч5
Флеш накопитель это внешнее устройство хранения информации чаще всего подключаемое по usb
u-Universal-универсальная
s-Serial-последовательная
b-Bus-шина