// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=Random(1,9);
var b:=Random(1,9);
Writeln('Сколько будет ',a,'x',b,'?' );
var c:=ReadInteger('Введите ответ и нажмите Enter ->');
if c=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись, ',a,'x',b,'=',a*b)
end.
<u><em>Тестовые примеры:</em></u>
Сколько будет 7x4?
Введите ответ и нажмите Enter -> 28
Правильно!
Сколько будет 8x7?
Введите ответ и нажмите Enter -> 65
Вы ошиблись, 8x7=56
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)
Ответ:
Дискета - Смотря для какие дюймы, стандарт для 3.5 дюймов: или 720кб или 1.44мб;
Жесткий диск - от 128 Гб До 4 ТБ
CD - Около 700 Мб
DVD - От 4 ГБ до 7 ГБ
<h3>Флеш-память - от 128 мегабйт до 2 терабайт.</h3><h3>Blu-ray - от 25 гб до 50 гб.</h3>