Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.
Ответ:
Это в паскаль? Если да то. y:=(x*x+5)/10
1280*1024=1 310 720 пикселей
2^2=4 цвета
2 бит для каждого пикселя
1 310 720 * 2 = 2 621 440 бит
2 621 440 / 8 = 327 680 байт
327 680 / 1024 = 320 Кбайт
Ответь: 320 килобайт
var c:array[1..15]of byte;
i,s1,s2,s3:integer; k:boolean;
begin
for i:=1 to 15 do readln(c[i]);
for i:=1 to 15 do begin
if c[i]=0 then inc(s1) else inc(s2);
if c[i]<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.
1. Поиск подстроки в строке, возвращает порядковый номер первого символа подстроки в строке
2. Определение длины строки
3. Выбор части строки по заданным порядковым номерам символов
<span>4. Конкатенация (объединение) строк </span>