var s1,s2:string;
begin
readln(s1);
readln(s2);
if length(s1)=length(s2) then
writeln('Да')
else
writeln('Нет');
end.
Точка RGB весит 3 байта.
300*200=60000 - количество точек
60000*3= 180000 байт
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}