Помогите, пожалуйста, Информатика, задания 2 и 3. Паскаль...

Aleksandra035 @Aleksandra035

July 2022 1 7 Report

Помогите, пожалуйста, Информатика, задания 2 и 3. Паскаль

Answers & Comments

karicha2000 Во 2 просто надо дописать 1 строчку

var a,b,c,m,s:integer;
begin
read(a);
b:=a mod 10;
c:=a div 10;
m:=c mod 10;
c:=c div 10;
s:=b+c+m;
write(s);
end.

3) var a:integer;
begin
read(a);
if (a mod 5=0) and (a mod 10 <>0) and (a mod 7=0) then
write('YES') else write('NO');
end.

1 votes Thanks 0

More Questions From This User See All

Aleksandra035 August 2022 | 0 Ответы

Помогите придумать сказку, с фантазией не очень хорошо. Размер небольшой 20-25 п...

рекомендуемые вопросы

rarrrrrrrr August 2022 | 0 Ответы

о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...

danilarsentev August 2022 | 0 Ответы

Есть два станка на которых выпускают одинаковые запчасти один производит a запча...

myachina8 August 2022 | 0 Ответы

Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...

ydpmn7cn6w August 2022 | 0 Ответы

Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...

millermilena658 August 2022 | 0 Ответы

Определите Как создавалась и кто создавал арабское государство в крации...

MrZooM222 August 2022 | 0 Ответы

Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...

timobila47 August 2022 | 0 Ответы

каково было назначение каждой из частей византийского храма? помогите пожалуйста...

ivanyyaremkiv August 2022 | 0 Ответы

Участник Знаний August 2022 | 0 Ответы

Пожалуйста!!!!!!!!!!!!...

sarvinozwakirjanova August 2022 | 0 Ответы

помогите пожалусто пж...

Helpful Links

Политика конфиденциальности

Правила и условия

Контакты

Helpful Social

Copyright © 2025 SCHOLAR.TIPS - All rights reserved.