Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vramazanova4
22.09.2020 12:23 •
Информатика
Напишите в паскале программу, которая высчитает сумму четырех чисел, используя только две переменные.
Показать ответ
Ответ:
ok683000
10.07.2020 19:21
Program z1;
var
a, b: integer;
begin
a:=0;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
write(a);
end.
или
program z1;
var
a, b: integer;
procedure add;
begin
readln(b);
a:=a+b;
end;
begin
a:=0;
add();
add();
add();
add();
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tete12
12.08.2022 01:11
Объясните (ОЧЕНЬ подробно следующий код о соортировке массива слиянием, написанный на языке программирования C#:using System;using System.Collections.Generic;using System.Linq;using...
sviatolavbazil
19.06.2022 03:25
Винипух и пятачок пошли в гости к кролику сколько мёда и сгущёнки можно съесть винни-пуху чтобы не застрять в двери...
ellalavrina
15.10.2022 00:12
А:=10 b:=27 а:=b div a b:= b mod a s:= a+b...
viiiiiiiiiiii
21.09.2022 09:26
Установите соответствие : 1) подлежащее 2)обращение...
Крахмал16
28.11.2022 06:30
Какой кпд у холодильных машин в процентах? ...
SonyaNik228
08.07.2021 00:18
Не вычисляя корней уравнения 2х^2-5х-4=0 найдите: 1)х1х2^3+х2х1^3; 2)х1^4+х2^4...
badurina92p0cc49
08.07.2021 00:18
Втаблице запросы к поисковому серверу. для обозначения операции или в поисковом запросе используется символ |, а для логической операции и символ & . 1. ученые | (...
yana017
02.07.2020 02:02
А) прочитайте. из каких произведений данные строки? выпишите неопре-делённые местоимения. укажите падеж.1) он действительно чем-то походил на военную фотогра-һию отца,...
DoKim01
13.07.2022 05:38
Музыкальные произведения леромонтова...
anickava
27.12.2022 17:00
1. объясните, в связи с чем в революционной франции в 1793 г. былапринята новая конституция. что отличало её от конституции 1791 г.? 3. составьте характеристику якобинской...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b: integer;
begin
a:=0;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
write(a);
end.
или
program z1;
var
a, b: integer;
procedure add;
begin
readln(b);
a:=a+b;
end;
begin
a:=0;
add();
add();
add();
add();
writeln(a);
end.