<span>Элементарно,Ватсон 1)143-23=120</span>
Баллы без умственной нагрузки? отличная идея!
Число цветов в палитре-N,
Объем графического файла-I,
Количество пикселей-K
Глубина цвета-I
Формулы:
I = K·i
N = 2 в степени i
===== PascalABC.NET =====
Четыре строки, 44 символа, включая пробел после var.
begin
var (a,b,c):=ReadReal3;
Print(a+b*c)
end.
Три строки, 42 символа.
begin
Print(ReadReal+ReadReal*ReadReal)
end.
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------