var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]=abs(a[i]);
for i:=1 to 10 do
write(a[i]);
end.
Var
x, a, b: Integer; y: Real;
begin
//writeln(x,a,b);
ReadLn(x);
<span>ReadLn(a);
</span><span>ReadLn(b);
y:= tg*x*</span><span>exp(ln(a)*(b+1))*ln(a+b);
</span>WriteLn('Otvet y = 'y);
На каком языке составить программу?
Если на Pascal то вот
<span>Program Number1;
var a, s : integer;
Begin
writeln(‘Введите цифру ‘);
readln(a);
S:=a*a;
</span><span>writeln(‘Площадь ‘, S);
end. </span>
(Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт)
Объем DVD M = 4.7*1024*1024 Кб = 4 928 307.2 Кбайт
Всего фото на диске N = M / 500Кбайт = 4 928 307.2 Кбайт / 500Кбайт = 9 856.6144 ~ 9 856 (округлили до целых)
Время просмотра t = N * 5c = 49 280 c = 13.6(8) часов
Ответ:
procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна