Не совсем понял смысл, но вот:
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, либо числа не кончатся
Колибри пчела и оса умеют летать но Колибри это птица а пчела и оса это насекомые.То что их объединяет
1.Они они питаются цветочным нектаром.
2.Они могут летать.
Program n1;
uses crt;
var
s:string;
i,k:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='и' then k:=k+1;
writeln(k,' раз(а)');
<span>end.
program n2;
uses crt;
var s1,s2:string;
begin
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
if s1[1]=s2[1] then writeln('Совпадают') else writeln('Не совпадают');
<span>end.
program n3;
uses crt;
var
s:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='н' then write(i,' ');
<span>end.
program n4;
uses crt;
var
s:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
if s[i]='.' then begin
s[i]:='*'; insert('*',s,i+1);
end;
writeln(s);
<span>end.
</span>
program n5;
uses crt;
var
s:string;
i:integer;
a,b:char;
begin
writeln('Введите строку'); readln(s);
writeln('Введите символ А'); readln(a);
writeln('Введите символ B'); readln(b);
for i:=1 to length(s) do begin
if s[i]=a then s[i]:=b;
if s[i]=b then s[i]:=a; end;
writeln(s);
end.</span>
</span></span>
#include<stdio.h>
int main(){
long double n;
scanf("%Lf",&n);
printf("%s\n",n<0?"negative":"positive");
return 0;
}
