program raf105;
var
i: integer;
begin
for i:=50 to 57 do
writeln(i,' ');
end.
2.program raf105;
var
i,c,sum: integer;
sari: real;
begin
for i:=6 to 14 do
begin
sum:= sum+i*i;
c:= c+1;
end;
sari:= sum/c;
writeln('Среднее арифметическое: ',sari);
end.
3.program raf105;
var
i,n,sum: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
if i mod 2 = 0
then sum:= sum+i*i;
writeln('Сумма квадратов чётных чисел: ',sum);
end.
PascalABC 3.4.2
1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a);
readln;
end.
2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch();
};
var
x, y, z, a, b, c, d, t: integer ;
begin
x := 336;
y := 8;
x := x div y;
y := x mod y;
writeln('x = ', x, ', y = ', y);
a := 1686;
b := (a div 10) mod 5;
a := a - 200 * b;
writeln('a = ', a, ', b = ', b);
x := 11;
y := 5;
t := y;
y := x mod y;
x := t;
y := y + 2 * t;
writeln('x = ', x, ', y = ', y, ', t = ', t);
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
x := 13;
y := 3;
z := x;
x := z div y;
y := x;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод и ответы по очереди
1) x = 42, y = 2
2) a = 1086, b = 3
3) x = 5, y = 11, t = 5
4) x = 13, y = 7, z = 6
5) x = 4, y = 4, z = 13