ИНФОРМАТИКА 8класс Определите, что в перечисленных величинах константы, а что переменные. Запишите в ответе цифры, соответствующие переменным величинам.
1. Температура воздуха на архипелаге Шпицберген
2. Количество писем,пришедших на электронную почту
3. Географические координаты острова Врангеля
4. Длина железнодорожного пути от Москвы до Санкт-Петербурга
5. Высота Останкинской телебашни
6. Количество минут в часе
7. Количество пассажиров в вагоне метро
Задание 2.
Определите значение b после выполнения алгоритма:
а:= 5
b:= 15
a:= 9 + a*b b:= b + a/3
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, h, s:real;
begin
writeln('Enter a, b and h');
readln(a, b, h);
s:=(0.5*(a+b))*h;
writeln('Area of the trapezoid=', s);
readln;
end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, s:integer;
begin
writeln('Enter the price and quantity');
readln(a, b);
s:=a*b;
writeln('Cost of purchase=', s);
readln;
end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, w:real;
begin
writeln('Enter the speed and time');
readln(a, b);
w:=a*b;
writeln('Way=', w);
readln;
end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.