какой код??? код вычесления квадратного корня? Скелет? или калькулятор? больше информации
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3
Вот для пальцев физкультура
С буквами ....... (клавиатура
Не зверушка не летаешь
а по коврику скользишь
курсором управляешь
ты – компьютерная...(мышь.)
Долго сочиняла
вот простые вопросы
на него мы смотрим, на столе стоит программы открывает. монитор
Сохраняет все секреты
*ящик* справа возле ног
и слегка шумит при этом
Что за *звер?* ситем блок
Потому что чтобы уметь пользоваться компьютером нужно как минимум логично рассуждать
Ответ: 4
Пояснение:
1)построил массив 10 на 10
2) выполнил все циклы по очереди и отмечал в каждой клетке полученное число после выполнения цикла