Рассмотрите блок схему и напишите программный код на языке программирования Pascal
lenabejenar
1
04.03.2021 12:51
4
Другие вопросы по теме Информатика
3344227p06s57
21.04.2020 11:58
green121
21.04.2020 11:58
lianadoschik12
10.12.2020 18:09
dum3
10.12.2020 18:08
Mifka15
10.12.2020 18:07
Клеоок
10.12.2020 18:06
gjjfdkjgfyijh
10.12.2020 18:06
kosyamosya03
04.06.2021 07:46
Популярные вопросы
- Кто является автором следующей теории растворов. При растворении...
3 - Решите систему уравнений методом подстановки y=-3x, 2x+3y=7...
2 - ИСТОРИЯ ДО 3 ЧАСОВ ПО УКРАИНЕ УКРАИНСКИЙ ЯЗЫК ИСТОРИЯ...
1 - Каховська ГЕС має висоту 18м і за одну хвилину пропускає 1200м³...
1 - Обчисліть массу частку сурозни приготували із 50 г води 15 г соди...
3 - Якою здалася Тоби Алиса из страны чудес Опышы за до прикметныкив...
3 - Угол, который меньше прямого угла, называется:маленькийразвёрнутыйтупойострый...
1 - Числівниками є всі слова рядка варіанти відповідейА четверо,учетверо,четвертий...
3 - На какое сословие европейского общества похожи самураи?...
3 - . краткий пересказ география 7 кл азия:путешествие(2)...
3
var sum, m, k:integer;
begin
sum := 0;
m := 10;
for k := 0 to 5 do begin
sum := k+m;
m := m-2;
end;
Writeln(sum);
end.
Объяснение:
Program samsdelal var
T,s,n:integer;
Begin
Realdn(t)
S:=t&9
If s>8 then
N:=80-s
Else n:=0
Writeln(n)
End.