#include <stdio.h>
int main()
{
printf("Введите 3 числа: ");
int a1=0,a2=0,a3=0;
scanf("%d %d %d", &a1, &a2, &a3);
if(a1 > 10 && a2 > 10 && a3 > 10){
printf("Yes");
}
else {
printf("No");
}
return 0;
}
<span>файл, содержащий программу в виде, в котором она может быть (после загрузки в память и настройки по месту) исполнена компьютером.</span>
Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;
// Chitaem summu
S:=0;
WriteLn('');
for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;
// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.
Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
1) program z1;
var k,i:integer;
begin
i:=4;
k:=0;
while i<=20 do
begin
if i mod 2=0 then
begin
writeln(i);
k:=k+i;
end;
i:=i+1;
end;
writeln('сумма ',K)
end.
2) program z2;
var i,k:integer;
begin
k:=1;
i:=3;
repeat
if i mod 2 <> 0 then
begin
writeln(k,')',i);
k:=k+1;
end;
i:=i+1;
until k>20;
end.
