var a,b:integer;
is7:boolean;
begin
readln(a);
b:=0;
is7:=false;
while a <>0 do
begin
b:=b+a mod 10;
if a mod 10 = 7 then
is7:=true;
a:=a div 10;
end;
wrtieln('Сумма цифр: ', b);
write('Цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
49152 бит = 49152 / 8 байт = 6144 байт
Delphi 2010
procedure Zadanie1(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := A to B do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A+1);
ShowMessage(s);
end;
procedure Zadanie2(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := B-1 downto A+1 do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A-1);
ShowMessage(s);
end;
procedure Zadanie3(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + i;
ShowMessage('Сумма чисел = ' + IntToStr(s));
end;
procedure Zadanie4(A: Integer; B: Integer);
Var
p: Integer;
i: Integer;
begin
p := 1;
for i := A to B do
p := p * i;
ShowMessage('Произведение чисел = ' + IntToStr(p));
end;
procedure Zadanie5(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + sqr(i);
ShowMessage('Сумма квадратов = ' + IntToStr(s));
end;
Буквы, Цифры, Стрелки, Ряд F, Настройки
Int main ...
int a,b,c;
cout <<" 2+2=4? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>cout <<" 3+2=5? 1-да, 2 - нет " << endl;
<span>cin>>a;
</span>if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>system ("pause");
return 0;