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>
<h3><u>
Ты налажал в схеме:</u></h3>
- в условии пунктов 1 и 2 (пофиксил);
- в пункте 3, там нет никакого оператора присваивания (пофиксил).
<h3><u>
Листинг:</u></h3>
program main;
var k, x, w: integer;
begin
writeln('Введите "k", "x", "w"');
readln(k, x, w);
if (k > 2) or ((x <= 9) and (w >6)) then
if k + x - w > 10 then begin
k := (k-x) * 4;
x := w * k;
if (k >= 6) and (x > 2) then
if (k < x) and (x > w) then begin
x := 4;
writeln(x - k);
end
else begin
x := w;
writeln(K + w);
end
else begin
k := (k + x) * 3;
writeln(k + x)
end;
end
else begin
w := w * x;
x := (k + x) * 2;
if (w > 3) and (x < 20) then begin
w := w * 2;
writeln(x + w);
end
else begin
x := sqr(x);
writeln(x - w);
end;
end
else begin
k := x +w;
w := sqr(w);
if x >= 6 then begin
x := x * 5;
writeln(x + k - w);
end
else begin
if k > 10 then
k := (x + k) * 3
else
w := k * x;
writeln((k + w) * x);
end;
end;
end.
<span>Цифровая камера сохраняет изображение в цифровом формате на носителях с помощью матрицы. Если раньше фотография получалась из-за фотохимических процессов, то сейчас пленку заменяет карта памяти - матрица заполняет значение каждого элемента-пиксела. Таким образом получается растовое изображение.</span>
Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
результатом этого алгоритма могут быть числа 217 1218 112 ответ 3
