В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Олька1824
Олька1824
10.05.2022 17:21 •  Информатика

Тема: Команда Ветвления (ненадо делать мне Паскаля) 1.Ввести число. Если оно чётное, разделить его на 4, если нечётное - унможить на 5.
2. Ввести рост человека. Вывести на экран "ВЫСОКИЙ", если его рост превышает 180 см, и "НЕ ОЧЕНЬ ВЫСОКИЙ" в противном случае.
3.Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает "Замечательно. Вы уже можете водить автомобиль", а в противном случае - "К сожалению, водить автомобиль Вам рановато".
И НАЧИНАЙТЕ С ДАНО, НАЙТИ, ПОТОМ ЧЕРТИТЕ ВЕТВЛЕНИЕ

Показать ответ
Ответ:
AlexanraMexx
AlexanraMexx
01.11.2020 13:05

ответ: 2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

Объяснение:

1 ВАРИАНТ)

var

x:char;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. для x указан тип данных - символьный. var  x:char;

2 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

writeln('x=',x:4:2);

readln;

end.

ПОДХОДИТ, Т.К. всё верно.

3 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)/(2+7);

end.

НЕ ПОДХОДИТ, Т.К. программа не делает вывод ответа.

4 ВАРИАНТ)

var

x:real;

begin

x:=(32+45)*(2+7);  

writeln('x=',x:4:2);

readln;

end.

НЕ ПОДХОДИТ, Т.К. допущена ошибка при записи уравнения. Указано умножение, вместо деления (32+45) * (2+7)

0,0(0 оценок)
Ответ:
igorlevocko
igorlevocko
03.11.2022 23:37
1) посчитать сумму всех нечетных чисел от 230 до 430
// PascalABC.NET 3.0, сборка 1088
var
  i,s:integer;
begin
  i:=231; s:=0;
  repeat
    s:=s+i; i:=i+2
  until i>400;
  Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.

Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775

2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=900;
  repeat
    Write('(',i:3,',',sqrt(i):9:5,') ');
    i:=i-7
  until i<0;
  Writeln;
end.

Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000)
( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011)
( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000)
( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000)

3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
  n:longint;
  s:integer;
begin
  Write('n='); Read(n);
  repeat
    s:=s + (n mod 10);
    n:=n div 10
  until n=0;
  Writeln('Сумма цифр числа равна ',s)
end.

Тестовое решение:
n=472305
Сумма цифр числа равна 21
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота