Регистрация
1lilita
09.05.2023 14:20
Информатика
Есть ответ 👍

Сделать расчет на эвм (pascal abc) ((нужна )) ((1)) function c (r: real): real; begin c: =3.14*r; end; var cc,r1,r2,r3,r4: real; begin write('введите значение r1='); readln(r1); write('введите значение r2='); readln(r2); write('введите значение r3='); readln(r3); write('введите значение r4='); readln(r4); cc: =c(r1)+c(r2)+c(r3)+c(r4); writeln('c=',cc: 5: 2); end. ((2)) var x1, x2, x3, x4, mn : integer; function min (a, b : integer) : integer; begin if a < b then min : = a else min : = b end; begin write('введите 4 числа: '); readln(x1, x2, x3, x4); {эхо-печать} mn : = min(x1, min(x2, min(x3, ; writeln('минимум: ', mn); end. ((3)) var x: real; res: real; y: word; begin clrscr; write('введите число в метрах, которое нужно преобразовать: '); readln(x); writeln('введите во что преобразовывать: '); writeln('[1] - декаметр'); writeln('[2] - гектаметр'); writeln('[3] - километр'); writeln('[4] - мириаметр'); writeln('[5] - мегаметр'); readln(y); case y of 1: begin res: =x*0.10; writeln('в ',x: 3: 2,' м ', res: 3: 2, ' декаметров'); end; 2: begin res: =x*0.01; writeln('в ',x: 3: 2,' м ',res: 3: 2, ' гектаметров'); end; 3: begin res: =x*0.001; writeln('в ',x: 3: 2,' м ',res: 3: 2,' километров '); end; 4: begin res: =x*0.0001; writeln('в ',x: 3: 2,' м ',res: 3: 2,' мириаметров'); end; 5: begin res: =x*0.00001; writeln('в ',x: 3: 2,' м ',res: 3: 2,'мегаметров'); end; end; readln end. ((4)) program lab6; uses crt; function a(n: integer): real; begin a: =1/n*sin(pi/4*n)+1/sqr(n)*cos(pi/4*n); end; var i: integer; begin clrscr; for i: =10 to 25 do writeln(i: 2,'=',a(i): 7: 5); readln end.

141
287
Посмотреть ответы 2

Ответы на вопрос:

89533807722qoznnn7
89533807722qoznnn7
4,4(51 оценок)
По 1-й решение уже приложено, поэтому прикладываю без него (остальные). смотри скриншоты.
22a03a1989
22a03a1989
4,6(93 оценок)

Pascal:

var

 n, i, a, c: Integer;

begin

 Read(n);

 c := 0;

 for i := 1 to n do begin

   Read(a);

   if (a div 100 = 0) and (a mod 10 = 3) then

     c := c + 1;

 end;

 WriteLn(c);

end.

Python:

n = int(input())

c = 0

for i in range(0, n):

   a = int(input())

   if (a // 100 == 0) and (a % 10 == 3):

       c += 1

print(str(c))

Популярно: Информатика