Задание по информатике 4. Расположите в правильном порядке номера строк программы. Запишите с учетом формата, что данная программа выведет на экран, если ввести значение площади равным 10, а длину стороны равной 5: Вычисление неизвестной стороны прямоугольника по заданным площади прямоугольника и одной из сторон. 1) End. 2) Begin 3) Readln(S,a); 4) Writeln(‘Введите площадь и однусторону’); 5) Writeln(’Cторона=’,b:0:2); 6) Program Storona; 7) Var a,S:integer; b:Real; 8) b:=S/a; 5. Дан текст программы с синтаксическими ошибками и ошибками, связанными с преобразованием типов числовых данных в операторах присваивания. Перепишите программу, исправляя встретившиеся синтаксические ошибки. Места исправлений подчеркните: Programm Test; War: a,b Integer, c Real, Bigin Writln(‘Введите 2 числа’); Readln(‘a c’); b:=a + c; a:=a + 5; c:=a/2; b:=sqrt(a); a:=b div a; b:=b/5; Writeln('a=’, a; 'b=’, b; 'c=’, c:6:2); And.
Задание по информатике 4:
6) Program Storona;
7) Var a,S:integer; b:Real;
2) Begin
4) Writeln(‘Введите площадь и однусторону’);
3) Readln(S,a);
8) b:=S/a;
5) Writeln(’Cторона=’,b:0:2);
1) End.
На экране: Cторона=2,00
Задание по информатике 5:
Program Test;
Var a,b:Integer; c:Real;
Begin
Writeln('Введите 2 числа');
Readln(a, c);
b:=a + round(c);
a:=a + 5;
c:=a/2;
b:=round(sqrt(a));
a:=b div a;
b:=round(b/5);
Writeln('a=', a, 'b=', b, 'c=', c:6:2);
End.