Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
#include <iostream>
using namespace std;
int main() {
int a[7], p = 1;
for( int i = 0; i < 7; i++ ) {
cin >> a[i];
if(a[i] > 0) p *= a[i];
}
}
В MS Excel по умолчанию числа выравниваются по правому краю, текст по левому
Но при ручном форматировании можно выравнивать как угодно
Var
a,b:longint;
begin
readln(a,b);
if sqr(a)>sqr(b) then writeln(a)
else
if sqr(a)<sqr(b) then writeln(b)
else writeln('Квадраты чисел равны')
end.
1600*120=192000 - количество пикселей
24*192000=4608000 бит - объем изображения
4508000\8=576000 байт- объем изображения
1 магабайт = 1 000 000 байт
576000\1 000 000=0.576 мегабайт