1. Информатика
  2. 1) написать программу,

1) написать программу, которая запрашивает: «введите скорость ветра (в м/с.)», при скорости ветра больше или равной 20 м/с программа сообщает: « ветер слабый». 2) составить программу, которая спрашивает: «ваши любимые фрукты? », и после ответа (например, «апельсины») сообщает: «апельсины содержат много витаминов» .

AnnyKat AnnyKat    3   17.03.2019 12:30    0

Ответы
пух8564 пух8564  14.02.2021 20:32

 

1)

program veter1;
var
x:integer;

begin
writeln('Vvedite skorost vetra v m/s');
readln(x);
if x>=20 then writeln('Veter slabii');
end.

 

2)

program frykti1;
var
x:string;

begin
writeln('vashi lybimie frykti?');
readln(x);
writeln(x,', soderjat mnogo vitaminov');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
анна2246 анна2246  23.03.2020 01:54
1.Необходимо сдвинуть элемент с индексом 12 на позицию 5, сдвинув соответствующие элементы вправо. Сколько сдвигов вправо нужно сделать? 2.Необходимо из массива со 100...
arinalomova13 arinalomova13  23.03.2020 01:50
Написать программу, которая определяет является ли введенное число х кратным 7. Program Primer; Var x: integer; begin writeln( Ввести x ); readln (x); if x mod 7=0 then...
ianna9227p00tfn ianna9227p00tfn  23.03.2020 01:42
Необходимо вывести все четные числа на отрезке [a;a•10]​...
Ленf77 Ленf77  23.03.2020 01:34
Необходимо написать программу выводящую кортеж содержащий числа в полуинтервале [a ;b) если a b и[b ;a)если b a числа а и b вводятся с клавиатуры​...
lyda777 lyda777  23.03.2020 01:28
Как решить задание и какой будет ответ?...
Space0611 Space0611  23.03.2020 01:26
Необходимо написать программу ,выводящую кортеж содержащий чисор в полуинтервале [а;b)если а b и b a число а иb вводятся с клавиатуры ​...
maksymmakarec maksymmakarec  23.03.2020 01:26
Составьте программы в паскаль. абс...
Anna9411 Anna9411  23.03.2020 01:04
Var t, col: integer; begin read(col); if col 145 then writeln( NO ) else if col =2 then writeln( 0 0 ) else begin if (col mod 2) =1 then t:=480+((col-1) div 2) *10 else...
4ex9s 4ex9s  23.03.2020 01:04
Консольные операционные системы. В чет отличие от «оконных» операционных систем текс придумать САМИМ....
Vitalikebati Vitalikebati  23.03.2020 01:01
Я составляю в школе чемпионат Царь горы . Для этого мне нужны во на логику или из истории древнего мира. У кого будет меньше во из интернета дам лучший ответ....

Популярные вопросы