Program zadacha; var a: array[1..10] of integer; k,i: integer; begin for i:=1 to 10 do begin write ('Введите a[',i,']='); readln (a[i]); end; for i:= 2 to 10 do begin if a[i]>a[1] then k:=k+1; end; writeln ('Количество элементов массива, больших, чем его первых элемент, равно ',k); end.
int main() { int a; cin >> a if(a%2 == 0) cout << "четное" << endl; else cout << "нечетное" << endl; }
4) #include <iostream>
using namespace std;
int main() { int a,b,c; string s = ""; cin >> a >> b >> c; if(a == b && a == c) cout << "равносторонний" << endl; else { if (a==b || a == c || b == c) s += "равнобедренный"; if( a*a == (b*b+c*c) || b*b == (a*a+c*c) || c*c == (a*a+b*b)) s+= "прямоугольный"; if(s == '') cout << "обычный" << endl; else cout << s << endl; } }
Procedure TForm1.Button4Click(Sender: TObject); var Buff: TNodePointer; x: TItem; i,j: Cardinal; begin i:=0; Buff:=Head; if(Buff^.Next=nil) then begin ShowMessage('В стеке один элемент!'); exit; end; while Buff <> nil do begin while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do begin pop(Buff^.Next,x); for j:=i to StringGrid1.RowCount-2 do StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1]; StringGrid1.RowCount:=StringGrid1.RowCount-1; end; Buff:=Buff^.Next; i:=i+1; end; end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
var a: array[1..10] of integer;
k,i: integer;
begin
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
for i:= 2 to 10 do
begin
if a[i]>a[1] then k:=k+1;
end;
writeln ('Количество элементов массива, больших, чем его первых элемент, равно ',k);
end.