<em><u>Вычисляем значение выражения 2 - 13 mod 7 / 3 + sqr(4)</u></em>
1) 13 mod 7 = 13 - 7 = 6
2) 6 / 3 = 2.0
3) 2 - 2.0 = 0.0
4) sqr(4) = 4 * 4 = 16
5) 0.0 + 16 = 16.0
6) 16.0 округлить до целых: 16
<em><u>В Паскале:</u></em>
var
i:integer;
begin
i:=Trunc(2-13 mod 7/3+sqr(4));
Writeln(i)
end.
1) сделать маленькие лепешки. 2) положить в эти лепешки начинку и залепить. 3) положить их на сковородку и пожарить
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.