D: \документы\фото\2011\весна сначала он поднялся на три уровня вверх, потом спустился в каталог экзамен и после этого спустился в каталог информатика. укажите полный путь для того каталога, в котором оказался пользователь (запишите номер правельного ответа): 1) d: \документы\фото\информатика 2) d: \документы\фото\информатика\экзамен 3) d: \документы\экзамен\информатика 4) d: \документы\фото\2011\весна\экзамен\информатика

👇

Увидеть ответ

Ответ:

vladawlada

15.03.2021

3) D:\ДОКУМЕНТЫ\ЭКЗАМЕН\ИНФОРМАТИКА

4,8(60 оценок)

Открыть все ответы

Ответ:

AnnaGlyuza0436

15.03.2021

Программа №1.

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).

4,4(65 оценок)

Ответ:

Зайчонок512

15.03.2021

Var
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 рублей.

4,6(29 оценок)

Это интересно:

Здоровье

06.02.2023

Как избавиться от изжоги народными средствами: решение проблемы без лекарств...

Мир-работы

07.11.2022

Как разговаривать на рабочем месте: секреты эффективного коммуникативного процесса...

Хобби-и-рукоделие

18.07.2020

Как обновить имидж куклы Барби...

19.04.2021