Сформулируйте условие задачи (что делает программа?)
var a, s: integer;
begin
s: = 0;
readln (a) ;
while a0 do
begin
if (a mod 7 = 0) and (a mod 10 = 1)
then s : = s + a;
readln (a) ;
end;
writeln (s) ;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформулируйте условие задачи (что делает программа?) var a, s: integer; begin s: = 0; readln (a) ; while a0 do begin if (a mod 7 = 0) and ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Помогите с ответом
Помогите решить - теплоход за два дня был в пути 12 часов. В первый день он прошел 256 км., а во второй - 128 км. Сколько часов теплоход провел в пути в каждый из этих дней, если он двигался с одинаковой скоростью?
Нет ответа
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа