Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DinaraBergeneva
29.09.2022 10:36 •
Информатика
Дано целое двухзначное число а. по заданному алгоритму составьте код программы. алг произведение нач ввод(x) x = x*10 вывод (x) кон алг
Показать ответ
Ответ:
kirillusupov20ovyv00
26.03.2022 09:02
Первая программа:
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
0,0
(0 оценок)
Ответ:
jkdsxkidhkofd
18.06.2021 18:47
1)
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ser099gei
30.03.2022 02:48
Много 1.этапы, которых стоит придерживаться при разработке любых баз данных: получение примеров внутренних и выходящих документов (файлы формата эксель, ворд, распечатанные...
KarinaFelton
12.03.2022 04:50
Все на языке бейсик 1. написать программу, которая 10 раз выводит на экран имя и фамилию. 2. написать программу, которая выводит на экран таблицу квадратов первых...
Takashu69
19.02.2021 20:11
1. Массив С размером 8 заполняется случайными целыми числами из интервала (10,90). Найти номера элементов, оканчивающихся цифрой 5. ( Известно, что такие элементы...
altynai0504
20.09.2020 01:49
1.Постройте диаграмму, показывающую соотношение затрат на каждый предмет мебели для класса.Мебель для класса Наименование Цена Количество СуммаСтол письменный 4...
пингвин38
02.01.2021 10:57
Выберите последовательность символов которая не может служить именем в языке Паскальzadan2 pr1 URL 1Программа125ugol_treug5hg1...
SergeyValitov228
10.04.2022 03:43
Используя график зависимости количества теплоты, необходимого для превращения жидкости в пар(газ), от массы жидкости, определите удельную теплоту парообразования....
natashashvachka
16.07.2022 13:36
Какая пара составлена неверно? 1 слон: слониха=трус : трусиха 2 парашют:парашютист = паспорт:паспортист 3 амбар:амбарчик= сарай :сарайчик 4 гусь:гусята = ботинок:ботинята...
exomashka
16.07.2022 13:36
Русский язык! Лёгкое задание! Напишите три-пять сравнений, изображающих ваше любимое время года!...
anastasiya11лет
16.07.2022 13:36
2. Воздух содержит 0,9% аргона (по объему). Сколько воздуха необходимо разделить на компоненты для получения 45 литров аргона...
Ychenik2525
02.06.2020 09:36
разместите озера на физической карте полушарий:Каспийское ,Байкал,Чад,Виктория,Танганьика,Ньяса,Ладожское,Онежское,Верхнее,Гурон,Мичиган,Эри,Онтарио,Аральское,Эльтон,Баскунчак,Мертвое,Титикака(еще...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.