На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.
<span>var a,b,c:real;
begin
a:=3;
b:=4;
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end<span>.
Результат:
c = 5</span></span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
<u>Пример</u>
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
<u>Замечание:</u> Значения всех 12 элементов вводятся с клавиатуры
1)программа и график (В и Д) -динамические модели,тогда остальное статические модели
2)А и В
Program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
write ('Введите количество дюймов: ');
readln(d);
s := d*m;
writeln (d, ' дюймов = ', s, ' сантиметров')
end.
Упрощенный вариант:
program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
readln(d);
s := d*m;
writeln (s)
end.