Регистрация
dilnoza55
05.03.2020 10:04
Информатика
Есть ответ 👍

Program jmia; var a,b,c,d,e,f,h: real; bigin readln(a,b,c,d,e,f,); d: =(c-3*a*a)/18,5-(a*a+b*b)/b-a+(a+c*c)/3*c*c; e: *b-d+a*(a/c)+(2*b+d)*(2*b+d)*2,5)/(3*a+c*c-d))+27*27*c; f: =3*e+(d/15)-a+(c*c*b/7); h=((a-b=35*d+f)/(f-*c writeln(h) end. где здесь

296
471
Посмотреть ответы 2

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

дизиль
дизиль
4,7(63 оценок)
Исправлены синтаксические ошибки: program jmia;   var a,b,c,d,e,f,h: real;   begin readln(a,b,c);   d: =(c-3*a*a)/18.5-(a*a+b*b)/b-a+(a+c*c)/3*c*c;   e: =((b*b-d+a*(a/c)+(2*b+d)*(2*b+d)*2.5)/(3*a+c*c-d))+27*27*c;   f: =3*e+(d/15)-a+(c*c*b/7);   h: =((a-b+35*d+f)/(f-*c; writeln(h); end.
ЯНА1234598765
ЯНА1234598765
4,8(30 оценок)
3. var s,i: integer; begin s: =0; for i: = 1 to 1000 do       if i mod 2 = 0 then s: =s+i; writeln('s = ',s) end. результат работы программы: s = 250500 4. var     n,a,i,max: integer; begin write('n = '); readln(n); write('введите целые числа(',n,' шт.): '); read(max); i: =1; for n: = 2 to n do       begin       read(a);       if a > max then             begin             max: =a;             i: =n             end;       end; writeln('максимум: ',max); writeln('номер максимума: ',i); end. пример работы программы: n = 7 введите целые числа(7 шт.): 1 2 3 5 9 4 7 максимум: 9 номер максимума: 5 5. var k,n: integer; begin write('k = '); readln(k); write('n = '); readln(n); writeln('количество купюр по ',k,' руб.: ',n div k); writeln('количество купюр по 1 рублю: ',n mod k); end. пример работы программы: k = 38 n = 3000 количество купюр по 38 руб.: 78 количество купюр по 1 рублю: 36

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