keti0290103
?>

Перепишите программу на языке паскаль, исправив ошибки: program primer var a, b: integer; begin ; readln( a, b); s=a+b; m: =a*b; d: =a: b; writeln(s); writeln(m); writeln(d) end

Информатика

Ответы

Yuliya_Viktoriya316

ошибки в программе:

program primer - не хватает точки с запятой

var a,b: integer;

begin ; - не ошибка, необязательная точка с запятой

  readln( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

  s=a+b; - не хватает двоеточия в : =

  m: =a*b;

  d: =a: b; - переменная d не была описана; деление - это /

  writeln(s);

  writeln(m);

  writeln(d)

end - не хватает точки.

 

исправленная программа:

program primer;

var a, b: integer;

  d: real;

begin

  readln(a, b);

  s : = a + b;

  m : = a * b;

  d : = a / b;

  writeln(s);

  writeln(m);

  writeln(d)

end.

cheremetdiana

209,35 Кбайт

Объяснение:

Дано:

N = 128 символов (количество букв в алфавите)

K = 100 страниц * 35 строк * 70 символов в строке = 245 000 символов в книге

Найти:

I

N = 2^i где

N - мощность алфавита (количество символов в алфавите)

i - количество бит для кодирования 1 символа (информационный вес символа)

^ - знак степени

128 = 2^i

i = 7 бит (подбор, знание степеней двойки)

I = К * i где

I - информационный объём текста

K - количество символов в тексте

i - количество бит для кодирования 1 символа (информационный вес символа)

I = 245 000 * 7 = 1 715 000 бит

I = 1 715 000 бит = 1 715 000 / 8 = 214 375 байт = 214 375 / 1024 ≈ 209,35 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт

Зинина-Олесия

Код1:

#include <iostream>#include <cmath>constexpr double semi_perimeter (double a, double b, double c) {    return (a + b  + c) / 2;}double first_task(double a, double b, double c) {    auto p = semi_perimeter(a, b, c);    return sqrt(p*(p-a)*(p-b)*(p-c));}int main() {    double A, B, C, S;    std::cin >> A >> B >> C;    S = first_task(A, B, C);    std:: cout << S << std::endl;    return 0;}

Код2:

#include <iostream>#include <cmath>constexpr double peak(double a, double b) {    return (a > b) ? a : b;}double second_task(double a, double b, double c) {    return peak(peak(a, b), c);}int main() {    double A, B, C, R;    std::cin >> A >> B >> C;    R = second_task(A, B, C);    std:: cout << R << std::endl;    return 0;}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перепишите программу на языке паскаль, исправив ошибки: program primer var a, b: integer; begin ; readln( a, b); s=a+b; m: =a*b; d: =a: b; writeln(s); writeln(m); writeln(d) end
Ваше имя (никнейм)*
Email*
Комментарий*