Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
Кокое слово можно составить из всех этих перечислиных букв-з,я,р,ц,е,п,т,е,н,а,и
Максим1236478 [21]
Из данных букв можно составить следующие слова: заяц, птица, заря, пятница, пена, цена, рецепт, ранец, тина, центр, патерн.
А полное слово: Презентация!
Языки низкого уровня - это машинный язык, язык Ассемблера.
Машинный язык состоит из двух символов - 0 и 1 (программа строится в двоичной системе счисления).
В принципе, эти языки низкого уровня сейчас если и применяются, то для создания небольших программ. Языки низкого уровня ориентированы на машину.
А вот языки высоко уровня ориентированы на человека (на пользователя ПК). Это такие языки программирования: Бейсик, Паскаль, Турбо Паскаль, С++ и другие. Чем более понятен язык человеку, тем выше его уровень.
