Напишите программу, которая возводит в квадрат трехзначное число, введённое с кл...

December 2021 1 11 Report

Напишите программу, которая возводит в квадрат трехзначное число, введённое с клавиатуры, при условии, что в числе содержится цифра 7. Если в числе нет цифры 7, то следует вывести число в исходном виде(через оператор if)Паскаль

Answers & Comments

BlcDragon Var a:integer; s:string;
begin
readln(a);
str(a,s);
if (pos('7',s)>0)
then
a:=a*a;
writeln(a);
end.

BlcDragon хмм, действительно. почему то прочитал "в куб". спасибо.

Answers & Comments

sostavte himicheskuyu formulu veshestva esli izvestnochto ono sostoit iz atomov k

vosstanovite uravnenie reakcii h2ssosadok

v pryamougolnom treugolnike katet bc15 a vysota bh provedyonnaya k gipotenuze

ochen srochno 30 ballov kakie tri cherty byli harakterny dlya zolotoj ordy 1o

rasschitajte vo skolko raz uvelichitsya skorost reakcii pri uvelichenii temperatu

6 zadanie ochen ochen srochno

3 primera vliyaniya politiki na duhovnuyu sferu 20 ballov

3 primera vliyaniya ekonomiki na socialnuyu sferu 20 ballov

3 primera vliyaniya politiki na ekonomiku 20 ballov mozhno kratko

45 ballov pismo ot bazarova k odincovoj tolko pozhalujsta ne berite s interne

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

Helpful Links

Helpful Social