Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m.
1) begin
writeln ('Введи длину и ширину прямоугольника c и m') ;
readln (c, m) ;
s:=c*m;
writeln ('s=', s) ;
readln;
end.
2) var
c, m, s:word;
begin
writeln ('Введи длину и ширину прямоугольника c и m') ;
readln (c, m) ;
s:=c*m;
3) var
c, m:word;
begin
writeln ('Введи длину и ширину прямоугольника c и m') ;
readln (c, m) ;
s:=c*m;
writeln ('s=', s) ;
readln;
end.
4) var
c, m, s:word;
begin
writeln ('Введи длину и ширину прямоугольника c и m') ;
readln (c, m) ;
s:=c*m;
writeln ('s=', s) ;
readln;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Помогите с ответом
помогите решить комплексни чыла z1=1-3i, z2=2+i
Нет ответа
1. Как с помощью двух вёдер объёмом 4 л и 11 л набрать 6 литров? 2. Как с помощью двух вёдер объёмом 5 л и 9 л набрать 7 л? 3. Как с помощью двух вёдер объёмом 3 л и 7 л набрать 5 л? 4.
Нет ответа
Выполните деление 14:42 = 100:40 = 20:15 = 7:8=
Нет ответа
60 000 м (в квадрате) = ? а? га
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа